From: Juanma Barranquero <lekktu@gmail.com>
Date: Fri, 19 Mar 2010 14:19:54 +0000 (+0100)
Subject: lisp/vc-dispatcher.el (vc-do-command): Remove reference to `vc-path'.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~8350
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=c81887da9aab7bef11a9cceb88dac89b20ef9048;p=emacs.git

lisp/vc-dispatcher.el (vc-do-command): Remove reference to `vc-path'.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 38de5fb6a62..f33faf06f86 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2010-03-19  Juanma Barranquero  <lekktu@gmail.com>
+
+	* vc-dispatcher.el (vc-do-command): Remove reference to `vc-path'.
+
 2010-03-19  Dan Nicolaescu  <dann@ics.uci.edu>
 
 	* vc-hooks.el (vc-path): Remove variable and obsolete declaration.
diff --git a/lisp/vc-dispatcher.el b/lisp/vc-dispatcher.el
index 8e6f5d5a1be..721bbb38fe5 100644
--- a/lisp/vc-dispatcher.el
+++ b/lisp/vc-dispatcher.el
@@ -318,16 +318,9 @@ case, and the process object in the asynchronous case."
 	    (status 0))
 	(when files
 	  (setq squeezed (nconc squeezed files)))
-	(let ((exec-path (append vc-path exec-path))
-	      ;; Add vc-path to PATH for the execution of this command.
-	      ;; Also, since some functions need to parse the output
+	(let (;; Since some functions need to parse the output
 	      ;; from external commands, set LC_MESSAGES to C.
-	      (process-environment
-	       (cons (concat "PATH=" (getenv "PATH")
-			     path-separator
-			     (mapconcat 'identity vc-path path-separator))
-		     (cons "LC_MESSAGES=C"
-			   process-environment)))
+	      (process-environment (cons "LC_MESSAGES=C" process-environment))
 	      (w32-quote-process-args t))
 	  (if (eq okstatus 'async)
 	      ;; Run asynchronously.